(comint-read-input-ring): Use comint-input-ring-size from the comint buffer

instead of the temporary one.

diff --git a/lisp/comint.el b/lisp/comint.el
index eeb3e720d060ec409c6fc4b2c8d4be1fc5218c7c..19ce168a02e6c2e26248d05e13b84e559df0cd04 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -896,7 +896,7 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'."
                 ;; Watch for those date stamps in history files!
                 (goto-char (point-max))
                 (let (start end history)
-                  (while (and (< count comint-input-ring-size)
+                  (while (and (< count size)
                               (re-search-backward comint-input-ring-separator nil t)
                               (setq end (match-beginning 0)))
                     (if (re-search-backward comint-input-ring-separator nil t)